home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 February / Ahoy_Magazine_85-02_1985_Double_L.d64 / ins. agent (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  8KB  |  190 lines
  1. 0 poke53282,16:poke53283,15:poke53284,2:poke53265,peek(53265)or64
  2. 1 poke53281,7:poke53280,7:printchr$(149):print"[147]"
  3. 2 fori=1to8:print:next:print"     [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  4. 3 print"     [194]                               [194]"
  5. 4 print"     [194]       life insurance needs    [194]"
  6. 5 print"     [194]                               [194]"
  7. 6 print"     [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]":print:print
  8. 7 printtab(5);"do you want an introduction <y/n>"
  9. 8 gets$:ifs$=""then8
  10. 9 ifs$<>"n"ands$<>"y"then7
  11. 10 print"[147]":poke53281,7:poke53280,7:printchr$(149):ifs$="y"thengosub5000
  12. 20 dr$="[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  13. 25 dv$="[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  14. 30 dw$="[194]                                 [194]"
  15. 31 ifx=1thenx=.:goto340
  16. 32 rr$="[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  17. 33 rv$="[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  18. 34 rw$="[194]                                 [194]"
  19. 35 printtab(3);dr$:printtab(3)dw$
  20. 40 print"   [194]     gross estate estimates      [194]"
  21. 50 printtab(3);dw$:printtab(3)dv$
  22. 65 print:print:printtab(3);rr$
  23. 70 printtab(3);"[194]net worth plus insurance proceeds[146][194]"
  24. 75 printtab(3);rw$
  25. 80 printtab(3);"[194]+++++1. $0       to $20,000 [146]+++++[194]"
  26. 85 printtab(3);rw$
  27. 90 printtab(3);"[194]+++++2. $20,000  to $200,000[146]+++++[194]"
  28. 95 printtab(3);rw$
  29. 100 printtab(3);"[194]+++++3. $200,000 to over    [146]+++++[194]"
  30. 105 printtab(3);rw$
  31. 110 printtab(3);"[194]+++++4.     end program     [146]+++++[194]"
  32. 115 printtab(3);rw$
  33. 120 printtab(3);"[194]+++++   please select one   [146]+++++[194]"
  34. 125 printtab(3);rw$
  35. 130 print"   [194]                                 [146][194]"
  36. 135 printtab(3);rv$
  37. 140 gets$:ifs$=""then140
  38. 145 s=val(s$):ifs<1ors>4thenprint"please enter a number 1-4":goto140
  39. 150 ifs=4thenprint"[147]":fori=1to12:print:next:printtab(8);"pleasure to serve you"
  40. 155 ifs=4thenfori=1to2000:next:print"[147]":end
  41. 160 ifs=1thenge=2200
  42. 170 ifs=2thenge=5000
  43. 180 ifs=3thenge=10000
  44. 190 print"[147]":printtab(3);dr$:printtab(3);dw$
  45. 220 printtab(3);"[194]        non-mortgage debts       [194]"
  46. 230 printtab(3);dw$:printtab(3);dv$
  47. 240 print:print:print
  48. 250 dr$="[176][195][195][195][195][195][195][195][195][195][195][195][195][195][174]":dv$="[173][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  49. 260 printtab(3);dr$;:printtab(23);dr$
  50. 270 printtab(3);"[194]  auto loan  [194]";:printtab(23);"[194]credit-cards [194]"
  51. 280 printtab(3);dv$;:printtab(23);dv$:print:print:print
  52. 290 printtab(3);dr$;:printtab(23);dr$:printtab(3);"[194]personal note[194]";
  53. 300 printtab(23);"[194]miscellanous [194]":printtab(3);dv$;:printtab(23);dv$
  54. 301 print:print:print:printtab(3);"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  55. 303 printtab(3);"[194]  please enter amount at prompt  [194]"
  56. 305 printtab(3)"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  57. 310 input"[145][145][145][145][145][145][145][145][145][145][145]==>$";al:input"[145]==>$";cc
  58. 320 input"==>$";pn:input"[145]==>$";mc
  59. 330 nm=al+cc+pn+mc:print"[147]":x=1:goto20
  60. 340 print:printtab(3);dr$:printtab(3);dw$
  61. 350 printtab(3);"[194]          emergency fund         [194]":printtab(3)dw$
  62. 360 printtab(3);dv$:print:print"   +++++++++++++++++++++++++++++++++++"
  63. 362 printtab(3);"+";:printtab(37);"+"
  64. 365 printtab(3);"+estimate two months take home pay+"
  65. 370 printtab(3);"+";tab(37);"+":printtab(3);"+          for a reserve";
  66. 375 printtab(37);"+":printtab(3);"+++++++++++++++++++++++++++++++++++"
  67. 380 print:print:printtab(3);dr$:printtab(3);dw$
  68. 390 printtab(3);"[194]  total invested assets on hand  [194][146]":printtab(3)dw$
  69. 400 printtab(3)dv$:input"[145][145][145][145][145][145][145]==>$";mp
  70. 410 input"==>$";ia:print"[147]":printtab(3);dr$:printtab(3);dw$
  71. 420 printtab(3);"[194]          college fund           [194]":printtab(3);dw$
  72. 430 printtab(3);dv$:print:printtab(3);"+++++++++++++++++++++++++++++++++++"
  73. 440 printtab(3);"+ this assumes 9,000/year private +":printtab(3);"+";
  74. 450 print" 4,900/year state-public college +":printtab(3);"+      room - ";
  75. 460 print"board - tuition     +":print"   +++++++++++++++++++++++++++++++++++"
  76. 470 print:printtab(3);rr$:printtab(3);"[194]+++++1. private  univ";
  77. 480 print"ersity++++++[194]":printtab(3);"[194]+++++2. public   university++++++[194]"
  78. 490 printtab(3);"[194]+++++3. please  select  one++++++[194]":printtab(3);rv$:print
  79. 500 getc$:ifc$=""then500
  80. 510 ifc$<"1"orc$>"2"then500
  81. 520 ifc$="1"thenc=9600
  82. 530 ifc$="2"thenc=4900
  83. 540 printtab(3)"[194] no of children to attend [194]"
  84. 550 printtab(3);"[194] total years to attend    [194]"
  85. 560 input"[145][145]";nc
  86. 570 input"";ty
  87. 580 t1=(c*nc)*ty:print"[147]":print:print:printtab(3);dr$:printtab(3);dw$
  88. 590 printtab(3);"[194] expected annual living expenses [194]":printtab(3);dw$
  89. 600 printtab(3);dv$:print:print:printtab(3);dr$:printtab(3);dw$
  90. 610 printtab(3)"[194] spouse's average annual income  [194]":printtab(3);dw$
  91. 620 printtab(3);dv$:print:print:printtab(3);dr$:printtab(3);dw$
  92. 630 printtab(3);"[194] annual social security benefits [194]":printtab(3);dw$
  93. 640 printtab(3);dv$:input"[145][145][145][145][145][145][145][145][145][145][145][145][145][145]==>$";el
  94. 650 input"==>$";ai:input"==>$";ss
  95. 660 le=el-ai-ss:print"[147]":fori=1to9:print:next:printtab(3);dr$:printtab(3);dw$
  96. 670 printtab(3);"[194] no of years until spouse is 90  [194]"
  97. 680 printtab(3);"[194]     investment rate factor      [194]":printtab(3);dw$
  98. 690 printtab(3);dv$:print:printtab(12);"==>";:inputyr
  99. 700 print"[147]"
  100. 710 printtab(10);"[206]  investment rate factor  [206]"
  101. 720 printtab(9);"[206][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][206]"
  102. 730 printtab(8);"[206]  s     [206] *a* e  [206] *b*    [206]"
  103. 740 printtab(7);"[206]  r     [206]     v  [206]        [206]"
  104. 750 printtab(6);"[206]  a     [206]  t  i  [206]  t  e  [206]"
  105. 760 printtab(5);"[206]  e     [206]  n  t  [206]  n  v  [206]"
  106. 770 printtab(4);"[206]  y  0  [206]  e  a  [206]  e  i  [206]"
  107. 780 printtab(3);"[206]     9  [206]  m  v  [206]  m  s  [206]"
  108. 790 printtab(2);"[206]  r     [206]  t  r  [206]  t  s  [206]"
  109. 800 printtab(1);"[206]  e  l  [206]  s  e  [206]  s  e  [206]"
  110. 810 print"[170]  b  i  [170]  e  s  [170]  e  r  [170]":print"[170]  m  t  [170]  v  n  [170]  v  g  [170]"
  111. 820 print"[170]  u  n  [170]  n  o  [170]  n  g  [170]":print"[170]  n  u  [170]  i  c  [170]  i  a  [170]"
  112. 830 print"[170][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]":print"[170]   25   [170]   20   [170]   16   [170]"
  113. 840 print"[170]   30   [170]   22   [170]   17   [170]":print"[170]   35   [170]   25   [170]   19   [170]"
  114. 850 print"[170]   40   [170]   27   [170]   20   [170]":print"[170]   45   [170]   30   [170]   21   [170]"
  115. 860 print"[170]   50   [170]   31   [170]   21   [170]":print"[170]   55   [170]   33   [170]   22   [170]"
  116. 870 print"[170]   60   [170]   35   [170]   23   [170]":print"[170][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  117. 875 print"[145][145][145][145][145][145][145][145][145][145][145]find years"
  118. 876 print"pick from"
  119. 877 print"a or b"
  120. 880 input"==>";fi
  121. 890 tl=le*fi:print"[147]"
  122. 895 tn=ge+nm+mp+t1+tl
  123. 900 print"+++++++++++++++++++++++++++++++++++++++"
  124. 910 print"+                                  [146]   +"
  125. 920 print"+      your life insurance needs   [146]   +"
  126. 930 print"+                                  [146]   +"
  127. 945 print"+++++++++++++++++++++++++++++++++++++++":print
  128. 955 print"+ 1. funeral/estate taxes/etc. ";ge
  129. 960 print"+ 2. settle non-mortgage debts ";nm
  130. 965 print"+ 3. emergency fund            ";mp
  131. 970 print"+ 4. college fund              ";t1
  132. 980 print"+ 5. expected living expenses"
  133. 990 print"+    a. avg. annual living exp.";el
  134. 1000 print"+    b. spouse's avg. income   ";ai
  135. 1010 print"+    c. annual social security ";ss
  136. 1020 print"+    d. net annual living exp. ";le
  137. 1030 print"+    e. years until 90         ";yr
  138. 1040 print"+    f. investment rate factor ";fi
  139. 1050 print"+    g. total living exp.      ";tl
  140. 1060 print"+ 6. total monetary needs      ";tn
  141. 1070 print"+ 7. total investment assets   ";ia
  142. 1075 ln=tn-ia
  143. 1080 print"+ 8. life insurance needs      ";ln
  144. 1090 print"+++++++++++++++++++++++++++++++++++++++"
  145. 1100 print:print"       press any key to continue"
  146. 1110 getke$:ifke$=""then1110
  147. 1120 print"[147]":goto35
  148. 5000 print"[147]":print"    is your life insurance sufficient--  or is it more";
  149. 5010 print" than you need?"
  150. 5020 print:print"    the best way to tell is to calculate what your family";
  151. 5030 print" would require if you   died today.":print
  152. 5040 print"    insurance needs are no longer based  on a multiple of your";
  153. 5050 print" salary. insurance needs usually peak early in your career";
  154. 5060 print" and then decline as you move toward     retirement, even to being";
  155. 5070 print" self insured."
  156. 5080 print"    using this program you will be asked various questions, to";
  157. 5090 print" identify sums to  be paid or saved, then calculate the    families";
  158. 5100 print" potential income and living    expenses.  this amount is reduced";
  159. 5110 print" by    investing the life insurance proceeds.":print
  160. 5115 print"       <press any key to continue>[146]"
  161. 5116 getk$:ifk$=""then5116
  162. 5117 print"[147]"
  163. 5120 print"    the total";
  164. 5130 print" insurance needed is found by adding the immediate and long--";
  165. 5140 print"term  expenses and substracting the value of  investment assets";
  166. 5150 print" on hand.":print:print"    to estimate social security benefits";
  167. 5160 print"you should use $5,000 if you have two   or more minor children.";
  168. 5170 print" use $4,000 for  one child and $3,000 for no children.":print
  169. 5180 print"    a work sheet provides a choice of   two investment rate factors";
  170. 5190 print" you can use to figure in the potential earnings     from investing";
  171. 5200 print" the insurance proceeds.  1. a conservative portfolio such as bank";
  172. 5210 print"accounts and bonds (2% real growth afterinflation and taxes) or";
  173. 5220 print" 2. a more aggressive investment such as stocks and real estate";
  174. 5230 print" that might yield 4% real growth."
  175. 5240 print:print"       <press any key to continue>[146]"
  176. 5250 getk$:ifk$=""then5250
  177. 5260 print"[147]":return
  178. 5300 rem*******************************
  179. 5301 rem* based on an article in 'wall
  180. 5302 rem* street journal' by karen
  181. 5303 rem* slater...."changing life-
  182. 5304 [143]* insurance needs require
  183. 5305 [143]* periodic look at your family's
  184. 5306 [143]* coverage"....source: bailard,
  185. 5307 rem* biehl & kaiser inc., san
  186. 5308 rem* mateo, calif.
  187. 5309 rem* program by glenn lumpkins
  188. 5310 rem* written april, 1984 v3
  189. 5311 rem*******************************
  190.